home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs07.d81
/
swapdr.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
1KB
|
28 lines
10 PRINT"[147][158] [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]
30 [153]" DRIVE CHANGER
50 PRINT" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
70 [133]" FIRST DRIVE NO. TO CHANGE";D1
90 [133]" SECOND DRIVE NO. TO CHANGE";D2
110 [133]" THESE WILL SWAP NUMBERS OK";Y$
130 [139] Y$[179][177]"Y" [167] [153]" CAN'T DO MORE":[128]
150 D3[178]12
160 DC[178]D1:DR[178]D3:P[178]1
161 [139] P[178]2 [167] DC[178]D2:DR[178]D1
162 [139] P[178]3 [167] DC[178]D3:DR[178]D2
163 [139] P[178]4 [167] [153] "SYS CHANGED !":[137]600
170 [159] 1,DC,15
190 [152]1,"M-R"[199](0)[199](192)[199](1):[161]#1,A$:[160] 1
210 [139] [198](A$)[178] 192 [167] [137] 530
370 [137]490
430 :
450 :
470 :
490 [159] 15,DC,15
500 [152]15,"M-W"[199](119)[199](0)[199](2)[199](DR[170]32)[199](DR[170]64):[160] 15
510 P[178]P[170]1:[137]161
530 [159] 15,DC,15
540 [152]15,"U0>"[170][199](DR):[160] 15
550 P[178]P[170]1:[137]161
600 [153]" THIS WILL BE IN EFFECT UNTIL THEWAIT DRIVES ARE WAIT RESET
605 PRINT:PRINT" [158]SOME PROGRAMS DO THIS SO WATCH OUT !!":END